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Abstract: x - 
this routine performs the $rename file rms function. 


Environment: : 
star processor running starlet exec. 


Author: L F Laverdure, creation date: 24-MAY-1978 
Modified By: 


v03-014 RASO324 Ron Schaefer 10-Jul-1984 
Fix up pees tete accvio path if new fab is bogus; 
clear R10 before doing second network parse; 
generally clean up the flows and registers. 


v03-013 Jwt0173 Jim Teague | 1-Apr-1984 
Clear last longword on ATR List since the List is 
now dynamically allocated. 
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v03-012 DGB0031 Donald G. Blair. 22-Mar-1984 
Implement the XABSV_PROPAGATE bit. | 
0 v03-011 RASO277 Ron Schaefer 20-Mar-1984 | 
4 Fix RASO246 for network SRENAME operations. 
000 V03-010 JWT0166 Jim Teague 20-Mar-1984 ~ | 
000 Use dynamically-allocated scratch page for accumulating 
sit ATRs for Q10s. FWAST_ATR_LIST no longer exists. 
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V03-009 DGB0006 onald G. Blair 01-Mar-1984 
Call RMSFCPFNC rather than RMSFCPFNC_R4 as part of the 
restructuring necessary to implement access mode 
protected files. 


V03-008 RASO242,RAS0246 Ron Schaefer 23-Jan-1984 
Fix bugchecks caused by Lack of a fwa (valid R10) 
on calls to RMS$PARSE_FILE. 

Fix error reports to not map errors so you can tell 
whether the failures are on enter or remove. 
Re-vamp error peeers oe mechanism to make smaller. 
Immediately return RMS$_IOP if device is a magtape. 


V03-007 RASO201 Ron Schaefer 17-Oct-1983 
Correct calls to RMSPARSE_FILE to account for the fact 
that it does NOT necessarily preserve R7. 

Also make SRENAME work without coeur os a NAM block. 
Compare old/new device names using FWASQ_SHRFIL_LCK. 


OOQCOooooooooooCoooooo 
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00 V03-006 KPLO001 Peter Lieberwirth 20-Jun-1983 

4 Allow rename of journaled file. 

00 v03-005 TSK0002 Tamar Krichevsky 12-Jun-1983 

oo Fix broken branch to RMS$RTVJNL. 

00 v03-004 KRMO0079 Karl Malik 10-Jan-1983 

$4 Turn on network $rename. 

00 v03-003 TSK0001 Tamar Krichevsky 28-Dec-1982 

00 Reverse the order of operations; previously the new name was 
00 entered into the target directory and then the old name was 


removed from the source directory. This created problems when 
version Limits were set. Also, error recovery was improved. 
It was possible, with the old scheme, to have two directory 
entries for to one physical file. This has been remedied. 


oo 
So 


Insert a check to prevent the age of a journaled file. 
As time RMS is not supporting this operation for journaled 
es. 


Save NAM$L_WCC across calls to RMSPARSE FILE. The wild card 

context was being overwritten when the file name was le 

parsed: Channel information stored in the WCC field was lost. 
f wild card processing was being done, while renaming files, 

- unnecessarily large number of channels could be allocated to 
e process. 


Rearrange the order of the module to put the error handling 
age of the end. The current organization is difficult to 
o read. 


v03-002 KRM0060 Karl Malik 10-Sep-1982 
Add support for network SRENAME. But leave ‘turned 
off* until FAL updates are checked in. 


v03-001 KBT0171_ Keith B. Thompson _ 23-Aug-1982 
Reorganize psects and return entry points to single ‘$' 


= § ~OOOOD9D9D00000 0000000 O00 00 00 09 09 09 09 09 09 09 SI NI NI INIA AAAAAAOOOUN 
FWD OS OD NA UE WIN 9 OD NAME WN OOD NAUE WN 0 OO NAMES WN OOONAULS WOW 


Ce |e | we |e) we we we ee ee we ew ww) elo ole) ola el wl ololelelololeleleoleloelololo!) 
PTE TE TELE SESE IOCE SEO CE Ieee eee Ieee ere ree eee Tere rere re rere rere rere re rere rere reise rere 


a ao a Ss at 


; 


C 11 
RMSORENAM RENAME FILE SERVICE 16-SEP-1984 01:27:4 AX/VMS Macro V04-00 Pa 
vo 000 Breer 188d $6555.36 TANS CRCTAASORLWAM MARS 1 ” 
v02-010 RASO0043 Ron Schaefer 29-0 t-1981 

Implement root directory support for corprt filespec. 

Must call RMSASSIGN to assign the channel for the 

tar we Saree in order to get the root directory 

evaluated. 


v02-009 KPLO001 Peter Lieberwirth 29-Jul-1981 
Rename Ee point to $$ form so we can dispatch here 
via RMSOBRNCH, 


V02-008 REFORMAT Maria del C. Nasr 24-Jul-1980 


v007 KEKO01 K E Kinnear 11-MAR-1980 18:40 
Change check for same device on old and new file name 
from string check to check of ucb addresses. 


v006 RASO009 R A Schaefer 20-DEC-1979 15:40 
ym for invalid directory rename operation check 
in rm$setdid. 


v005 JAKO001 J A Krycka 27-AUG-1978 09:50 
Miscellaneous clean-up prior to decnet v1.0 code freeze. 
revise network error processing. 
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DECLARATIONS 
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v04- 


Ic 16-SEP-1984 01:27:4 AX/VMS M 
RMSSRENAME. = g Be $6:55;3 TRMSO 


E 
AME FILE ROUTINE SEP=1984 RMS.SRCJRM 
-SBTTL RMSSRENAME = RENAME FILE ROUTINE 


v04-00 Page 3 | 
ENAM.MAR; 1 (3) | 


z< 


p++ 
; RMSSRENAME = This routine performs the following steps: 
; } calls RMSFSETI to create an IFAB 


saves the address of the old FAB and new FAB on the stack. 

The old FAB address MUST be the first thing pushed onto the stack. 

3) calls RMSPARSE_FILE to parse the old file name, including : 
setting up its directory id. Verifies that the file spec contained 
no wild cards and did not specify a process permanent file. 

4) issues an ‘‘access'’ qio to lookup the old file in the directory 
(but does not access the file). Checks the to see if any of the 
ee ae turned on. If the file is being journaled, it can not 
e renamed. 

5) calls RMSFILLNAM to fill in the old name block, if any. 

6) verifies the new FAB and NAM block is valid and accessable. 

7) calls RMSPARSE_FILE to parse the new file name, includin 


~— 


setting up its directory id. Verifies that the file spec contained 
no wild cards and did not spec tty a process permanent file. 
(RMSPARSE_FILE observes that a channel is ptreedy assigned and 
returns immediately after the parse without setting up the DID). 

8) the parsed device name (including unit) is checked for being 
the same for both the old and new file specs. ‘ 

9) saves the old file's FID in the FWA for a SRENAME specific directory 
check and then calls RMSSETDID for the new file 


OOoOQoooooooQooooooooooooo°ooo 
SOCOoQooOooooQoooooOooooooooooO 
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0000 : 10) issues a ‘‘delete’’ qio to remove the old name from the old directory. 

0000 3 11) issues a ‘‘create'’ qio to enter the new name in the new directory 

0000 ; (with the old fid). If this fails, the old file name is re-entered 

0000 : into its original directory and return an error. If the re-enter 

0609 3 also fails, then return an error explaining that the file was lost. 

0000 ; 12) calls RMSFILLNAM to fill in the new NAM block, if any. 

i464 3 13) branches to RMSCLSCU to deassign the channel and evaporate the IFAB. 

0000 : ae* NOTE: SRENAME used one IFAB and two FWAs == one for each file name. 

0000 209 ; Also, the STV and STS are returned in the FAB for the old file 

444 210 ; name. R8 must contain the address of the old FAB before 

000 211; returning to the caller. 

0000 sig : : 

0000 213 ; Calling sequence: 

0000 «214 ; : 

44 215 ; entered as a result of user's calling sys$rename. 

0000 216; . 

0000 217 ; Input Parameters: 

6000 519 ; | 

444 AY $ ap user's argument List (note: 4 arguments required) 

0000 $54 : Implicit Inputs: 

444 $56 : : ‘ee 

000 + the contents of the fab (bid, bln, ifi, nam) and the 
0000 4; related nam block. 

0000 23 

0000 6 ; Output Parameters: 

8008 ‘3s 
000 8; rl -r5 destroyed 
44 9 ; r0 status code | 
0 0; ae | 
0000 1; Implicit Outputs: | 


-_ | 


F 11 
RMSORENAM RENAME F RMS 
vOu-000 
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FILE ROUTINE 
the sts and stv fields of the fab are output along with 
the fields of the nam block 
a completion ast is queued if specified in the user arglist. 
; Completion Codes: | 
3 | 
ent, esa, esl, fab, fnd, fnf, fnm, ifi, iop, nam, prv, 
; rmv, rst, rss, Sys, typ, ver, wld 
; Side Effects: | 
| 
| 
| 
| 


: standard rms, in particular acc, bln, dev, dir, dnf, dnr, drn, 
: none 


oO oCOooooooooooooooeo 
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RMSORENAM RENAME FILE SERVICE 16-SEP-1984 01:27:4 AX/VMS Macro v04-00 Page 
haat ty RMSSRENAME - NAME FILE ROUTINE eet 02:52:58 YRMS SRCIRMSORENAM MAR: 1 ° 
8 sai 
0 : entry point for $Srename function 
0 — 
0 SENTRY RMSSRENAME 
0 STSTPT RENAME : flag rename done 
FFF7° 30 BSBW RMSFSETI 3; create ifab 
0 $ 
0 ; Return to user on error 
0 : ril=impure area addr 
0 3 r9=ifab addr 
: r8=fab addr 
58 ODD PUSHL R8 3; save old fab address 
51 10 AC 00 MOVL 16(AP) ,R1 3; get the new fab address 
01cD 30 BSBW  NEWFABI > checkout new fab 
58 odD 1 PUSHL R 3; save newfab addr 
58 04 AE 00 1 MOVL 4(SP),R8 3; restore old fab addr 


s++ 


Parse the old file spec and look up the old file. 


57 28 A8 00 MOVL FABSL_NAM(R8) ,R7 Locate the old NAM block 


ee ie ne ee ee wr www lolololelolelolololololeolo) 
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1 
09 BEQL ; ok without one 
FFDF* 30 BSBW RMSCHKNAM ; is the NAM block valid? 
59 50S «EY BLBC RO, : if not, then return an error 
30 A? «OD PUSHL  WAMSL_WCC(R7) ; save the current wild card context, 
;  RMSPARSE_FILE overwrites this field 
01D1 + 30 10$: BSBW PARSE_FILE 3; parse the old file spec 
; and perform various checks 
046 13 BEQL 20$ ; okay if no NAM block 
30 A7 8EDO POPL NAMSL_WCC(R7) ; restore wild card context. 
4—F 6A 19 €0 H 208: BBS #FWAST_NODE,(R10),120$ ; Branch if node 
p++ 
; The following access of the file is similar to FILFNC, but has to be done 
; : in Line. The jounaling attributes need to be retrieved and there is no 
; 3 provision in FILFNC to do so. 
FFC9" 30 BSBW RMSGET1PAG ; Grab a scratch page 
58 AA 53 ~=«~0 MOVL te aa rectal ; Save scratch page address 
53 0 MOVL R3,R5 3 and put it in RS 
QOOOO000'EF 16 : JSB RMSRTVJINL ; add the descriptor for journaling 
4 3 . attributes to end of the List 
65 D4 4 CLRL (R5) ; indicate end of ATR List 


RMSORENAM RENAME FILE SERVICE 16=SEP=1984 01:27:42 YAX/VMS Macro V04-00 Page | RMS 
yor 000 RMSSRENAME = RENAME FILE ROUTINE ~SEP-1984 95:55:3 RMS .SRCJRMSORENAM.MAR; 1 ° ay Tab 
TE 4 0046 308 CLRL = (SP) ; Pb => 0 | 
58 AA 3 4 PUSHL FWASL ATS pare cnt) ; PS => descriptors for file attributes | 
FFRS 48 10 BSBw RMSFCP P4-P 3 set up P4 through P 
50 A ef 11 MOVZBL #10$_ACCESS,RO : function code for file lookup 
FFAC’ 30 34 6 BSBW RMSFCPFNC ; lookup the old file | 
50 oD 4 14 PUSHL RO ; Save status 
54 58 AA 8 56 15 MOVL FWASL_ATR_WORK(R10),R4 ; Pass address of scratch page 
FFA3° OSA 18 BSBW MSRETIPA ; Return scratch page 
58 AA 04 0050 1 CLRL FWASL_ATR_WORK(R10) ; Indicate no work area now 
50 8ED0 O63 18 POPL RO ; Restore status | 
1A 50 4 06 0 BLBC RO,110$ 3 continue if successful 
FF97* 30 0066 1 BSBW RMSE ILLNAM : fill in the old NAM blk, if any 
1150 €9 006 § BLBC RO,100$ 3 get out on error 
006¢ | 
Oost 358 5 | 
Beer § > save the old file name context and process new 
ent | 
5A gp 006C 0 PUSHL R10 3 save old FWA address 
016A 0 O06E 31 BSBW NEWF AB ; Probe the new FAB's Location, check | 
0071 335 ; FAB's validity, load R8 with its adr 
57 28 A8 00 0071 33 MOVL FABSL_NAM(R8) ,R7 ; locate the new NAM block 
18 13 0075 334 BEQL 40$ 3 okay if none 
FF86* 30 0077 335 BSBW RMSCHKNAM ; is the NAM block valid? 
OF 50 «=—E8 4th $$ BLBS RO,30$ : if yes, continue renaming the file 
O1AE 31 907 38 100$: BRW CLEAN : return an error | 
oicS = =31 0083 re 110$: BRW ERRACC 3 otherwise, return an error 
00D5~=—s« 31 0083 +g 120$: BRW NE TRENAM 3; Branch (network operation) 
01D3—s«31 ooe8 rf 130$: BRW ERRRMV ; otherwise, return an error 
01cO.~—Os «5311 baer *$ 140$: BRW ERRDEV 
30 A? DD 008C 48 30$: PUSHL NAM$L_WCC(R7) ; save the current wild card context, 
OO8F 49 ;  RMSPARSE_FILE overwrites this field 
0169 30 OO08F 50 40$: BSBwW PARSE_FILE ; parse new File name (but doesn't set | 
3 2] ; DID, therefore it doesn't stall, 
9 ¢ ; so user's blks don't need probing.) 
046 13 009 5 BEQL 50$ ; okay if no NAM block 
30 A7 BEDO 0094 54 POPL NAMSL_WCC(R7) i: restore wild card context. 
5¢ seaeeet * 3 098 55 50$: MOVAB RMSENTXAB_ARGS,AP ; ap = arg for xabscan 
FFSE* 3 O9F 2$ BSBW $XAB_SCAN 3; handle pro xab 
DB 5 —9 OAS 5 BLBC RO,100 3 exit on error 
OA 58 
OA 59 
ee ee 
5 | 
a2 66 : yor sty that old and new device names are the same. : | 
a2 o7 ; Must first assign channel for new file. Old file has channel in IFAB. 
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7E 20 Ad 80 A 8$ MOVW IF BSW_CHNL(R9) ,-(SP) ; save old file channel 
FF54 A of BSBW RMSASSIGN 3 assign channel for new file 
DA 50 €9 AC § BLBC RO, 140$ ; if error, say bad device name 
OAF 0 SDASSGN_S CHAN=IFB$W_CHNL(R9) ; remove the channel 
20 a9 +8E OB OBA 71 MOVW (SP)+, 1FBSW_CHNL(R9) ; restore the old channel 
50 6 3 pee i MOVL (SP) i get old FWA pointer 
0198 C D 00C 7 CMPCS FWASQ SHRFIL_LCK(RO),- : check if canonical device names 
019C DO O¢> 74 @FWASG_SHRFIC_LCK+4(RO),- ; as returned by SGETDVI 
FF BF 0c 75 f-1,- : funny fill to prevent matches | 
0198 CA OCA ud: FWA$Q SHRFIL_LCK(R10),- : are the same 
19C DA cD (3? @FWASG_SHRFIC_LCK+4 (R10) 
87 is 00D 78 BNEQ 140$ : if not, then return an error 
50 6€ 00 00D 79 MOVL (SP) ,RO ; get old FWA pointer 
O1F8 CO DO 00D 80 MOVL FWAST_F IBBUF+FIBSW_FID(RO),-; copy FID to special place 
0240 CA 00D9 81 FWAST RNM_FID(R10) ; for invalid directory rename check 
O1FC CO. ©B0 ©00DC 8¢ MOVW 4+FWAST_FIBBUF+F IBSW_FID(RO),- 
0244 CA Boeg 4+FWAST_RNM_FID(R10) 3 all 6 bytes 
FFIA' 38 OOE 84 BSBw RMSSETFIB 3; set up FIB descriptor 
FFI7" 30 43 $2 BSBW RMSSETDID_ALT ; look up new directory id 
6C 50 €9 ODE 6 BLBC RO,908 3 get out on error 
OOEC 87 | 
OQOEC 88 ;++ 
OOEC 89 ; 
QOEC 90 ; both old and new names parsed o.k., the device and unit are the same, 
OOEC 91; and the old file has been looked up. Now, do the remove of the old name 
OOEC 8 : and then the enter of the new name. If the enter fails, go back and reenter 
OOEC 93; the old name. 
OOEC 94 ; 
OOEC 95 :-- 
OOEC 96 
51 08 AE 00 OOEC 97 MOVL 8(SP),R1 3 restore old FAB addr 
OOEC 30 pore 98 BSBW NEWFAB1 : check it out 
5A DD OOF 99 PUSHL R10 : save the new FWA addr 
5A ..04 AE D0 OOF 400 L 4(SP),R10 : restore old FWA addr 
3 3 9A O0OF9 401 MOVZBL #10$_DELETE.RS : gio function code for remove 
00D0 30 OOFC $06 BSBW FILFAC 3; remove the old file name | 
8450 €9 sth +82 BLBC RO,130$ : if successful, enter the new name 
50 SA 00 0102 405 MOVL R10,R0 ; make room for the new FWA addr 
5A BEDO 010 406 POPL R10 3; retrieve the new FWA addr 
0000 «30 «(0108 407 BSBW = NEWF AB ; Probe the new FAB's location, check 
198 $08 . FAB's validity and load R8 with it's add 
ors cO pO 01 4 MOVL FWAST_FIBBUF+F I1B$W_FID(RO) ,- 
O1F8 CA 10F 410 FWAST_ F IBBUF +F IBSW FID(R105; copy old FID to new FIB 
O1FC CO «6©BO 60112) 411 MOVW  4+FWAST_FIBBUF+F IBSW_FID(RO) ,~ 
gure cf 18 tig 4+FWAST F IBBUF +F IBSW_F ID(R10$ 
5 3 OA gH 41 MOVZBL #10$_CREATE,RS 3 gio function code for enter 
9088 30 O11C 414 BSB FILFAC s enter the new file name | 
2150 €9 O11F 415 BLBC RO,70$ : if successful, finish up chores 
4 $1$ 3; otherwise re-enter old name | 
0086 30 01 41 BSBW = NEWF AB ; Probe the new FAB's location, check | 
1 rt ; _ FAB's validity and load R8 with it's add | 
FED8* 30 Q1 41 BSBW ag at : fill in new nam blk, if any 
2D 29 E9 0128 +39 BLBC RO,90$ 3: get out on error 
5 DS 0128 421 TSTL : do we have a nam blk? 


| 
| 
' 
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OD 13 0120 4 § BEQL 60$ ; branch if not 
i 
r 4 ; set the lowver and highver flags in the nam block 
120F 6407 * 
12F 4 8 ASSUME FIBSV_HIGHVER EQ FIBSV_LOWVER+1 
12F 4 ASSUME NAMSV-HIGHVER EQ NAMSV— -LOWVER+1 
g O&F EF O12F 430 EXTZV #FIBSU_LOWVER,#2,- ge f ve version bits from FIB 
51 08 cA 1320 431 FIBSW"NMCTL +FWAST_FIBBUF (RIO). 
02 E 1 FO 0136 4 ; INSV R1,#@NAMSV_LOWVER,#2,- ; copy "then into user's NAM block 
34 A7 135A G4 NAMSL_FNB(R7) 
58 08 AE 44 13C 6434 608 MOVL 8(SP),R8 3 retrieve the old FAB addr 
FEBD’ 31 O13 ? 5 BRW RMSCLSCU 3; go evaporate ifab & return to user 
50 DD bie 4 $ 70$ PUSHL RO 3; save the error code for later use 
5A O4A 0 0145 438 MOVL 4(SP),R10 $ ge oy old FWA address 
008 0 0149 439 BSBW Ss FILING do the re-enter *ASSUMPTION == RS HAS 
014C 440 3 NOT CHANGED SINCE LAST ENTER 
03 50 8 014C 441 BLBS RO,80$ ; if enter worked, return an error 
0102 1 pie rr BRW ERRREENT ; if not, give up - file has been lost 
50 8—D0 0152 444 80$: POPL RO 3; retrieve ACP error from enter 
0100 = 31 15 445 BRW ERRENT 3; enter failed, but re-enter succeeded, 
ee 2 rt old file is still intact 
0003 31 0158 tts 90$: BRwW CLEAN 
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| 
158 4 9 i++ | 
158 4 e 
158 4 § ; The parse ( & parse check) of the old filespec has been completed and a 
158 455 ; nodename has been found. Now parse the new filespec, make sure the node 
: ; 2 ¢ 3 mames match and issue the network Srename request. 
158 4 
135 4 : NE TRENAM: | 
FEA2" 30 0158 460 BSBW NTSNWA_FREE ; Get rid of old filespec | 
2e 46 ; NWA (no Longer needed) 
1 46 SDASSGN_S IFBSW_CHNL(R9) ; Deassign the old channel 
20 ADs «BG 1¢2 rhe CLRW IF BSW_CANL(R9) ; Clear the old channel field 
O16 465 ;++ 
16C $08 3 
Biee 467 ; save the old file name context and process new 
16C 468 ; 
016C 4 14 3;== 
3196 470 
SA D 016C 471 10S: PUSHL R10 ; save old fwa address 
006A 0 b196 rh BSBW NEWF AB ; get new name fab addr in r8 
0087 0 0171 «47 BSBW PARSE_FILE 3 parse new file name 
51 08 AE 4 0174 474 MOVL 8(SP),R1 3; restore old fab address 
0064 0 0178 475 BSBW NEWF AB1 3 and check it out 
017B 476 
0178 477 ;+ 
8178 $78 ; Check the new filespec for a nodename. 
4D 6A 19 €1 318 ret BBC #FWASV_NODE,(R10),40$ ; Nodename on new file name? 
017F iB 3+ 
O17F 483 ; Make sure the nodenames match (local RMS will take care of the device 
O17F #484 ; comparison on the remote node). 
O17F 485 ;- 
017F $36 
52 6 dO giz rt 20$: MOVL (SP) ,R2 : Get old FWA adr in req 
52 01B4 E 182 488 OVAL FWA$Q NODE1(R2),R2 : Get old filename FWA descriptor adr 
4 6 Cc O01 489 MOVZWL 2) ,R4 ; Get old nodename Length 
08 02 A2 OA €1 13a 490 BC #V_ACS,2(R2) ,22$ ; Branch if no access string present 
18F 491 : _Chigh word of desc.) 
04 B82 54 $6 3A 018F rh LOCC #*A/"'/ R4,84(R2) : Find the a quote 
54 C2 0194 49 SUBL2 ; Compute nodename length (w/o acs) 
53 0184 CA bE 197 494 22$:  MOVAL FWASQ_NODE1(R10),R3 : Get new filename FWA descriptor adr | 
55 63 C 019C 495 MOVZWL ; Get new nodename length 
08 02 a A 4 19F 49 Bec #V_ACS,2(R3) ,23$ ; Branch if no access string present 
0463 5 2 A O14 49 LOCC #°R/"'7-R5,a4(R3) ; Find the beginn ng quote | 
55 0 C2 OQ1A9 $38 SUBL RO,R5 ; Compute nodename length (w/o acs) 
0683 55 00 04 B2 4 2D QO1AC 499 238: CMPC R4,a4(R2),#0,R5,a4(R3) ; Compare the nodenames — 
16 812 18) 89 BNEQ 40$ ; Branch on error and exit | 
1B6 8 + ; . 
18 8 3; They match - This is a valid network SRENAME request 
1B6 he 
FE47" 30 0186 6 258: BSBW NTSACCESS ; Assign the logical Link | 
| 
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Branch on err 
Issue the DAP oSRENAME request 
Restore old FWA adr 
Restore old FAB adr 
and check it out 
Cleanup and exit 


; Can't mix network and local rename 
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v04- RMSSRENAME = RENAME FILE ROUTINE eat 94:30:58 YAMS SRCTRMSORENAM MAR: 1 . (B) | v04 
p++ 
: filfne subroutine to issue a gio function. | 
: inputs: 
: r5 io function code 
3 r8 fab address 
; r9 fab address 
: r10 fwa address 
: rij impure area address 
: outputs: 
: r0 status code 
; ri-r4,ap destroyed 
7E 7C FILFNC: CLRQ -(SP) ; p6=p5=0 
FE2C’ 30 BSBW RMSFCP_P4_P2 3; set up p4 thru p2 to 
3 process name from fwa 
sos ss ww MOVL R5,R0 ; io function code to right reg. 
FE26" 39 BSBu RMSF CPFNC ; do acp function 


subroutine to load address of new fab into r8 and check it for goodness. 
inputs: 
ifab address 


r9 
8(sp) new fab address for NEWFAB 
ri new fab address for NEWFAB1 


outputs: 
r8 new fab address 
ri destroyed 


note: does not return if fab is bad. 


flee le ele ele ele alolelealelelelelelelelelelololeleloleleleleloelolelololelelelelelelalelelololelolelelolelel ola) 
me ce ee ef a ee ae ed ed od od od SS 8 2 3 2 2 2 
MHRMMMMOOCOOCVCVVOCVCVVOVOV VOSS SESS FV VG FG GGG GIG AAAAAAAAAAAAMAAAAOAAAOO 
PVPVPV PVP PVDV LV DVSPTDVLUSUSUSUSUSIUSUSUS US USUSUSUSUS ISS US IOS USUI SUSU ISIS UST SISSIES ISIS TSS SISOS IOSISISIST 
SN IO ODE De DDE DEDEDE DE TT BB BE BB BB BB INNING fof NNNNUNY SS So 
PRO OOO UNE WIN O OD NAME WIN $0 OD NOU EWR | 0 OO NAW EWR) 0 OONOAOUE WN OVOOnNO mn 
e 
- 


PVT WOON DOV VOVVVVVVVOWVWVOWOVOWVOOD PWS FF rr rr ro 


ASSUME FABSL_STS+4 EQ FABSL_STV 
51 08 AE 00 ede b MOVL 8(SP),R1 3; get new fab address 
“IFNORD #FABSC_BLN, (R1),ERRFAB, 1FBSB_MODE(R9) | 
; branch if new fab not readable 
03 1 91 CMPB FABSB_BID(R1) ,#FABSC_BID; is it a fab? 
3 \¢ BNEQ ; branch if not 
50 8F O1Al 9 CMPB FABSB BLN(R1) ,#FABSC_BLN; is it long enough? 
70 =F BLSSU cere ; branch if not 
58 51 00 MOVL R1,R 3 put in right register 


N11 
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08 AB 4 8 CLRQ FABSL_STS(R8) ; clear sts & stv 
0 RSB 
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to verify that the parsed file spec contain 
no wild cards, specified a disk device and "did not specify a 


parse_file subroutine to parse the filespec Dian RMS$PARSE_FILE and | 
| 
foreign device or process-permanent file. | 


| 
| 
inputs: 

r0 status —_ (checked for success) 


ri10 fwa addres 
r8 fab oadress 


outputs: 
z-bit set if no nam block exists 

f z-bit set 

z-bit clear if nam block exists 

R7 ptr to nam block if z-bit clear 


note: does not return on error. 


SOOOCOOOOOOVOOOWDODOOMOSOMWO WN wm 
=OVOWONAM EWN O OONOAOUESWN-OOONG man 
6 
A 


DDD PVPS SSSI SIS ISIS TSI 


PARSE _FILE: | 
CLRL R10 


PON 2 2 2 SS SS BOO OCOCOCOCOCOR TTT nnn ono 
AL MOWAHLMOM FNOWOOOVWVWWVIVIWVIVIVIVIVIVOIVOVIWVIVIVOVIVIVOVIVIVIOVIOIVTWOOW 


PRIPIPIPIPIMYIPINIPINRININININIAIN INIA ad nd nk nt kk kd a 6 0 ot 


5A 602 1 : signal no fwa 
FEOO" 30 603 BSBW RMSPARSE_FILE ; parse new file name (but doesn't set 
604 3. DID. therefore it doesn’ t stall, 
605 ; so user's blks don't need probing. ) 
28 50 —=s:E9 606 BLBC RO,CLEAN ; get out if parse failed 
6A i EO pets BBS ot ee os wALBEAND , CRIS). ; get out if wild card speced 
Oc AA 95 609 TSTB FWAS$B_ESCFLG(R10) ; ppf? 
60 12 610 BNEQ ERRIOP ; ranch if gy Se oe 

08 6A 19 €0 611 BBS hes -NODE. (R10),10$ ; don't check device if node 
7.6 ORT 612 BBC #DEVSV_R ; 
58 69 613 ret PRIM. DEV(R9), ERRIOP ; error if not disk 
18 €0 614 BBS Ev$0_FOR,- 
54 69 615 FBSL PRIM: pevcg9? . ERRIOP ; error if mounted foreign 
57 28 A8 00 616 10$: MOVL FABSL “NAM(R8) , ; NAM block present? 
08 13 617 BEQL 208 ; nope, but that’s okay 
FODF* 30 618 BSBW RMSCHKNAM : a it useable? 
OA 50 £9 619 BLBC RO,CLEAN ; nope 

| hu 620 TSTL R?- ; set 2-bit 
05 621 208: RSB 
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v04-000 RMSSRENAME = RENAME FILE ROUTINE mets Ti 93:35:3 RMS.SRCIRMSORENAM.MAR; 1 . (12) | 
2 eee 
? 624 ; | 
2? 625 ; handle error conditions 
7? 666 
; 3 8 MCLEAN l based 
: ; clean up acp-based errors 
0c AB «500 0 2 698 MOVL —_—RO, FABSL_STV(RB) : Save acp error 
50 9E 3C 0228 631 CLEAN1: MOVZWL a(SP)+,R0 ; pick up in-line error code 
022E O36 CLEAN: 
08 AB 50 00010000 8 C9 Q2 3 63 BISL3 #<RMS$_FACILITY@16>,R0,- 
36 63% FABSL_STS(R8) ; save RMS error status 
OC AB DD 37 = 635 PUSHL FABS$L_STV(R8) ; save STV from current FAB 
58 14 AB DO O23A 636 MOVL IMP$L_SAVED_SP(R11),R8 ; restore old fab addr from stack 
O23E 637 ; (saved as ist item on stack) | 
58 78 D0 OQ23E 638 MOVL -(R8),R8 ; this is the fab addr 
Oc AB BEDO 0241 639 POPL —- FABSL’ STV(R8) : set STV in source FAB | 
FDB8' 31 OER 949 BRW RMSCLSCU ; gO evaporate ail internal structs 
0248 642 ERRACC: | 
DD 10 0248 64 BSBB MCLEAN 
024A 644 RMSERR_WORD ACC ; lookup failed 
024C 645 
024C 646 ERRDEV: | 
DD 10 O24C 647 BSBB_ ss CLEAN1 | 
024E 648 RMSERR_WORD DEV ; not same device or unit 
0250 649 
0250 650 ERRNOD: | 
D9 «=©.10 0250 651 BSBB CLEAN1 
0252 O26 RMSERR_WORD NOD ; Not same node 
0254 65 
0254 654 ERRREENT: 
D1 10 0254 655 BSBB MCLEAN : ; 
0256 656 RMSERR_WORD REENT ; reenter of old file failed 
0258 657 
0258 658 ERRENT: 
CD 610 0258 659 BSBB MCLEAN : 
025A 660 RMSERR_WORD ENT ; enter failed 
025C 661 
025C 6 ; ERRRMV: 
C9 10 O25C 66 BSBB MCLEAN . 
5¥43 664 RMSERR_WORD RMV ; remove failed 
026 665 
Bse8 666 ERRFAB: 
c9 = «10 60 66 BSBB CLEAN1 
0262 668 RMSERR_WORD FAB 3; new fab bad 
0264 669 | 
0264 670 ERRBLN: | 
CS 10 0264 671 BSBB CLEAN1 
0266 or¢ RMSERR_WORD BLN 3; not a fab 
Bs ee 67 
26 674 ERRWLD: 
ci 10 Ogos 675 BSBB CLEAN ; : 
026A 676 RMSERR_WORD WLD ; wild card in spec 
026C 677 
bs ee 678 ERRIOP: 
BD 10 026€ 679 BSBB CLEAN1 


D 12 


RMSORENAM RENAME FILE SERVIC 16-SEP-1984 01:27:4 AX/VMS Macro V04-00 P 17 
yo2-000 RMSSRENAME = RENAME FILE ROUTINE o73Ee= 138s 90:55:36 Hams eactamsortnamcnan;1 P29 (13, 
§ 6 0 RMSERR_WORD 10P ; attempt to rename pet 
, ? 1 : foreign or non disk device 
7 6 : - END 
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RMSORENAM 
Symbol table 


$$.PSECT_EP 
SSRMSTEST 


Vv 
SV_HIGHVER 
$V"LOWVER 


ASB_ESCFLG 
FWASL “ATR WORK 


WA$Q~NODE1 
FWASQ—SHRFIL_LCK 


FWAST_F IBBUF 
FWAST_RNM_ FID 
FWASV_NODE 
FWASV_WILDCARD 


IFBS$L—~PRIM_DEV 
“CHN 
IMP$L~SAVED_SP 

ESS 
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0 
000001 
0000001 
0000000 
0000000 
B80 002 
000001 
000000 
000000 
000000 
000002 
000000 
000000 
0000000 
0000000 
0000015 
000001D 
000001D 
gerkeree 
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NTSNWA_FREE 
NTSRENAME 


RMSCLSCU 
RMSENTXAB_ARGS 
RMSFCPFNC 


RMSXAB_SCAN 
RMSSRENAME 
RM cc 


RMS$_FAB 
RMS$_FACILITY 
RMS$_10P 
RMS$_NOD 
RMS$_REENT 
RMS$_RMV 
RMS$~WLD 


SYSSDASSGN 
TPTS$L_RENAME 
V_ACS 
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S 
S 


IME Be 
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RETREAT 
Reeeeeee 
000001FB 
(AR SRDS SD | 
Reeeeeae 
RRERHAEE 
REET 
RETREAT 
RARER 
RReRKEAE 
REHEAT 
RRARHEEE 
RREKEEKE 
RERERERE 
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+ 
! Psect synopsis ! 
beam ar eeeres econ} 


PSECT name Allocation PSECT No. Attributes 

» OS « 00000000 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS 00000270 (¢ 624.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


Phase Page faults CPU Time Elapsed Time 
Initialization 33 00:00 :00.1¢ 00:00:00.47 
Command processing 137 00:00:00.7 00:00:03.88 
Pass 1 419 00:00:15.63 00:00:37.82 
Symbol table sort 0 bs SY Se 00:00:04.00 
Pass 2 129 00:00:03.17 00:00:08.60 
Symbol table output 11 00:00:00.12 a Sh SE 
Psect synopsis output 2 00:00:00.02 00:00:00.0 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 739 00:00:22.26 00:00:54.91 


The working set Limit was 1650 pages. : 

9006 bytes (174 pages) of virtual memory were used to buffer the intermediate code. 

There were 90 pages of symbol table space allocated to hold 1746 non-local and 23 local symbols. 
683 source Lines were read in Pass 1, producing 15 object records in Pass 2 

24 pages of virtual memory were used to define 23 macros. 


Sener en ewe meee enw mean e en $ 


Macro Library name Macros defined 


_$255$DUA28: (RMS .OBJJRMS.MLB; 1 9 
= B52 2S0UACE: SYS.OBJJLIB.MLB; 1 2 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 8 
TOTALS (all libraries) 19 
1843 GETS were required to define 19 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=L1S$:RMSORENAM/OBJ=OBJ$:RMSORENAM MSRC$:RMSORENAM/UPDATE=(ENH$: RMSORENAM) +E XECML$/LIB+LIBS$:RMS/LIB 
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